10 REM BACKGROUND COLORS
20 POKE53280,.:POKE53281,.:PRINT""
30 POKE53269,0:REM ALL SPRITES OFF
40 PRINT"[147]":POKE56325,60
50 PRINT"" TAB(14) "PLEASE WAIT"
60 POKE54277,0:POKE54278,240:POKE54282,8:POKE54294,128
70 POKE54284,85:POKE54285,133:POKE54291,10:POKE54292,197
80 FORA=0TO251
90 READB:POKE21504+A,B
100 NEXT
110 FORA=0TO174
120 READ B:POKE20484+A,B
130 NEXT
170 V=53248:CX=180:CY=212
180 REM CLEAR PIXEL
190 FOR I=12288TO12798:POKEI,0:NEXT
200 REM TURN ON SPRITE MEMORY LOCATIONS
210 FORI=0TO7:POKE2040+I,192+I:NEXT
220 POKEV+39,2:FORI=4TO10:POKEV+I+36,I:NEXT:REM COLORS
230 REM SHAPE OF CAR
240 FORJ=0TO448STEP64
250 FORI=12288+JTO12315+JSTEP3
260 READB:POKEI,B
270 NEXT
280 NEXT
320 FORA=0TO79
330 READB:POKE20736+A,B
340 NEXT
350 FORA=0TO132
360 READB:POKE21024+A,B
370 NEXT
380 FORA=0TO144
390 READB:POKE21251+A,B
400 NEXT
410 FORA=0TO140
420 READB:POKE21763+A,B
430 NEXT
440 FORA=0TO173
450 READB:POKE22020+A,B
460 NEXT
470 PRINT"[147]"
471 POKEV,CX:POKEV+1,CY:POKEV+14,180:POKEV+15,225:POKEV+16,66
472 POKE20480,48:POKE20481,48:POKE20482,48:POKE20483,48
473 POKE20994,88:POKE20995,45:POKE20996,46:POKE20997,75
474 POKE20998,176:POKE20999,105:POKE21000,160:POKE21001,135
475 POKE21002,160:POKE21003,165:POKE21004,18:POKE21005,195:POKE21007,225
476 POKE21010,88:POKE21011,2:POKE21012,16:POKE21013,4
477 POKE21014,236:POKE21015,8:POKE21016,70:POKE21017,16
478 POKE21018,34:POKE21019,32:POKE21020,124:POKE21021,64
479 POKE21248,48:POKE21249,0:POKE21250,0
480 POKE21760,0:POKE21761,0:POKE21762,0
481 POKE22016,15:POKE22017,24:POKE22018,0:POKE22019,4:POKEV+3,45
482 POKEV+5,75:POKEV+7,105:POKEV+9,135:POKEV+11,165:POKEV+13,195
483 POKEV+2,88:POKEV+4,46:POKEV+6,176:POKEV+8,160:POKEV+10,160:POKEV+12,18
489 POKE53280,.:POKE53281,.:PRINT TAB(12) "100 MILE  RACE"
490 PRINT TAB(12) "[158]BY RANDY MEYLE"
495 PRINT TAB(12) "NAPERVILLE, IL"
500 PRINT TAB(9) "JOYSTICK IN PORT   2 [146]"
510 PRINT TAB(9) "[159]MOVE LEFT  AND  RIGHT"
520 PRINT TAB(9) "SHIFT GEARS UP & DOWN"
530 PRINT TAB(5) "[153]PRESS THE FIRE BUTTON TO START"
540 PRINT"[150]           PRESS  Q [146] TO QUIT![144]":POKE198,.
550 GET A$:IFA$="Q"ORA$="[209]"THEN810
555 FORX=0TO13:POKE55468+X,INT(RND(0)*8+4):NEXT
557 IFPEEK(56320)AND16THEN550
560 POKE53280,12:POKE53281,15
590 PRINT"[147]":POKEV+21,255:REM TURN ON SPRITES
592 POKE56216,15:POKE56217,15:POKE56257,15:POKE56250,15:POKE56290,15
594 POKE56251,15:POKE56252,15:POKE56253,15:POKE56254,15:POKE56255,15
596 POKE56256,1:POKE56292,1:POKE56293,1:POKE56294,1
597 POKE56295,1:POKE56291,1:POKE1984,48
598 POKE2019,48:POKE2020,48:POKE2021,48:POKE2022,46:POKE2023,48
600 REM INITIAL ROAD
610 GOTO651:FORY=0TO800STEP40
620 FORX=YTOY+15
630 POKE1064+X,39:POKE1088+X,39
640 NEXT
650 NEXT
651 R$="''''''''''''''''        ''''''''''''''''":PRINT"":FORQ=1TO22:PRINTR$;:NEXT
655 POKE2003,7:POKE2004,15:POKE2005,33
660 T=INT(TI/60)
670 FORX=0TO1000
680 GETA$:IFA$="Q"THEN6500
700 SYS21251
720 SYS20736
730 SYS22020
735 IFA$="Q"THEN6500
740 SYS20736
750 SYS21024
760 SYS20736
770 SYS20484
775 IFA$="Q"THEN6500
780 SYS20736
790 POKE54296,14:SYS21763:REM  IFPEEK(54296)=.THENGOSUB1600
800 NEXT
801 FORX=1TO2000:NEXT
802 POKEV+21,0:PRINT"[147]"
804 TF=INT(TI/60):M=INT((TF-T)/60):S=(TF-T)-60*M
805 PRINT"ELAPSED TIME:":PRINTM;"MINUTES AND";S;"SECONDS"
806 PRINTTAB(12)"PLAY AGAIN?  Y/N [146]"
807 GET B$:IFB$=""THEN807
808 IFB$="Y"THENPRINT"[153]":GOTO470
809 IFB$<>"N"THEN807
810 GOTO6000
815 REM SOUND EFFECT DATA(21504)
820 DATA135,97,33,8,17,65,135,97,33,8,17,65,135,97,33,8,17,65,135,97,33
830 DATA8,17,65,135,97,33,8,17,65,135,97,33,8,16,64,135,247,33,9,17,65
840 DATA135,247,33,9,17,65,135,247,33,9,17,65,135,247,33,9,16,65
850 DATA135,247,33,9,17,65,12,247,1,9,0,64,135,143,33,12,17,65,135,143
860 DATA33,12,17,65,135,143,33,12,17,65,135,143,33,12,17,65,135,143,33,12
870 DATA17,65,135,143,33,12,16,64,223,247,39,9,17,65,223,247,39,9,17,65
880 DATA223,247,39,9,17,65,223,247,39,9,16,65,162,247,37,9,17,65,12,247,1
890 DATA9,0,64,162,97,37,8,17,65,162,97,37,8,17,65,162,97,37,8,17,65,162
900 DATA97,37,8,16,65,135,97,33,8,17,65,12,97,1,8,0,64,135,71,33,6,17,65
910 DATA135,71,33,6,17,65,135,71,33,6,17,65,135,71,33,6,16,65,165,71,31,6
920 DATA17,65,12,71,1,6,0,64,135,97,33,8,17,65,135,97,33,8,17,65,135,97
930 DATA33,8,17,65,135,97,33,8,17,65,135,97,33,8,17,65,135,97,33,8,16,64
940 REM SCREEN SCROLL ROUTINE(SYS20484)
950 DATA162,250,189,197,6,157,237,6,202,208,247,162,250,189,203,5,157
960 DATA243,5,202,208,247,162,250,189,209,4,157,249,4,202,208,247,162,210
970 DATA189,255,3,157,39,4,202,208,247,162,40,169,32,157,255,3,202,208,250
980 DATA162,46,142,190,7,174,0,80,232,224,58,240,25,142,191,7,142,0,80
990 DATA174,1,80,142,189,7,174,2,80,142,188,7,174,3,80,142,187,7,96,162,48
1000 DATA142,0,80,142,191,7,174,1,80,232,224,58,240,19,142,189,7,142,1,80
1010 DATA174,2,80,142,188,7,174,3,80,142,187,7,96,162,48,142,1,80,142,189
1020 DATA7,174,2,80,232,224,58,240,13,142,188,7,142,2,80,174,3,80,142,187
1030 DATA7,96,162,48,142,2,80,142,188,7,174,3,80,232,142,3,80,142,187,7,96
1040 REM SPRITE SHAPES(12288)
1050 DATA126,255,255,126,126,126,126,255,255,126
1060 DATA60,60,60,24,255,24,24,60,102,195
1070 DATA60,60,60,24,255,24,24,60,102,195
1080 DATA60,60,60,24,255,24,24,60,102,195
1090 DATA60,60,60,24,255,24,24,60,102,195
1100 DATA60,60,60,24,255,24,24,60,102,195
1110 DATA60,60,60,24,255,24,24,60,102,195
1120 DATA60,60,60,24,255,24,24,60,102,195
1130 REM JOYSTICK LEFT-RIGHT(SYS20736)
1135 DATA160,0,174,0,208,224,32,208,7,173,16,208,41,1,240,41,224,72
1137 DATA208,9,173,16,208,41,1,240,2,160,1
1140 DATA173,0,220,41,4,208,18,202,202,224,254,208,8,173,16,208,41,254
1150 DATA141,16,208,142,0,208,96,136,240,22,173,0,220,41,8,208,15,232,232
1160 DATA208,8,173,16,208,9,1,141,16,208,142,0,208,96
1170 REM PEOPLE MOVE(SYS21024)
1200 DATA162,0,160,2,189,2,82,192,1,208,28,24,105,6,201,0,208,11,173,16
1210 DATA208,93,19,82,141,16,208,169,0,157,2,208,157,2,82,200,76,96,82,56
1220 DATA233,6,201,254,208,11,173,16,208,93,19,82,141
1230 DATA16,208,169,254,157,2,208,157,2,82,136,189,3,82,24,105,6
1240 DATA201,5,208,28,224,2,240,16,224,4,240,12,173,16,208,93,19,82,141
1250 DATA16,208,189,18,82,157,2,208,157,2,82,169,45,157,3,208,157,3,82,232
1260 DATA232,224,12,208,146,173
1270 DATA15,82,24,105,6,201,5,208,2,169,45,141,15,82,141,15,208,96
1280 REM GEARS-JOYSTICK UPDOWN(SYS21251)
1290 DATA173,0,220,41,1,208,28,174,0,83,224,52,240,51,232,142,0,83,174
1300 DATA1,208,202,202,202,202,202,202,202,202
1310 DATA142,1,208,76,70,83,173,0,220,41,2,208,25,174,0,83,224,48,240,18
1320 DATA202,142,0,83,174,1,208,232,232,232,232,232,232,232,232,142,1,208
1330 DATA173,0,83,141,152,7,174,0,83,224,52,240,64,224,51,208,8,160
1332 DATA5,140,2,83,76,129,83,224,50,208,8,160,15,140,2,83,76,129,83,224
1334 DATA49,208,8,160,45,140,2,83,76,129,83,224,48,208,6,142,192,7,76,3
1336 DATA83,172,1,83,200,140,1,83,208,247,174,2,83,202,142,2,83,208,238,96
1340 REM COLLISION CHECK(SYS21763)
1350 DATA173,0,85,201,3,240,14,105,1,141,0,85
1360 DATA169,254,45,30,208,45,31,208,96,162,0,169,1,45,30,208,208,8
1370 DATA169,1,45,31,208,208,1,96,169,0,141,0,85,169,31,141,24,212
1380 DATA189,0,84,141,0,212,232,189,0,84,141,7,212,232,189,0,84,141,1,212
1390 DATA232,189,0,84,141,8,212,232,189,0,84,141,4,212,232,189,0,84,141,11
1400 DATA212,172,1,85,200,140,1,85,208,247,172,2,85,200,140,2,85,192,20
1410 DATA208,236,169,0,141,2,85,232,224,252,208,175,172,1,85,200
1420 DATA140,1,85,208,247,172,2,85,200,140,2,85,208,238,141,24,212,96
1430 REM WINDING ROAD(SYS22020)
1432 DATA174,3,86,232,142,3,86,224,5,208,32,162,0,142,3,86
1434 DATA32,222,255,162,0,141,2,86,169,1,45,2,86,208,1,232,169,2,45,2,86
1436 DATA208,1,232,142,2,86
1440 DATA174,0,86,208,5,162,2,142,2,86,174,1,86
1450 DATA224,39,208,5,162,0,142,2,86,174,2,86,224,1,208,27,174
1460 DATA0,86,169,39,157,0,4,202,224,255,208,248,174,1,86,169,39,157
1470 DATA0,4,232,224,40,208,248,96,174,2,86,208,35,174,0,86,202,142,0,86
1480 DATA169,39,157,0,4,202,224,255,208,248,174,1,86,202,142,1,86,169,39
1490 DATA157,0,4,232,224,40,208,248,96,174,0,86,232,142,0,86,169,39,157
1500 DATA 0,4,202,224,255,208,248,174,1,86,232,142,1,86,169,39,157,0,4,232
1510 DATA224,40,208,248,96
1600 Y=PEEK(53249)
1605 Y%=Y/8-6:Y%=Y%*40+1024
1610 IFPEEK(Y%)<>32THENY%=Y%+1:GOTO1610
1615 Y%=Y%+7-1024:TY=(Y%/40):TY%=TY:XX=(TY-TY%)*320
1616 P=PEEK(53264)
1617 IFXX<256THENPOKE53264,PAND254:GOTO1625
1620 XX=XX-256:POKE53264,POR1
1625 POKE53248,XX
1630 FORJ=1TO500:NEXT:RETURN
6000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER
6010 CLOSE15:PRINT"[147]";:IFER<>63THENEND
6020 LOAD"HELLO CONNECT",8
6500 POKE53296,.:PRINT"[147]YOU PRESSED 'Q' TO QUIT.":GOTO801